|||##########################################################################
|||## A Macroquest2 Casino written by Grimshad & Killians
|||## casinoinfo.mac - Handles all info code
|||##########################################################################
|||---------------------------------------------------------------------------------------------------------Events
|||---------------------------------------------------------------------------------------------------------Info Events
#event Hail "#1# says, 'Hail, |${DealerName}|'"
#event Hail "#1# tells you, 'Hail'"
#event Casino "#1# #*# 'Casino'"
#event Suggestion "#1# #*# 'Suggestion'"
#event Info "#1# #*# 'Info'"
#event Banking "#1# #*# 'Banking'"
#event Games "#1# #*# 'Games'"
#event Raid "#1# #*# 'Raid'"
#event RaidPasses "#1# #*# 'Raid Pass'"
#event Oddsinfo "#1# #*# 'Odds'"
|||---------------------------------------------------------------------------------------------------------Info Tell Rejects
#event PlayReject "#1# tells you, 'Play #*#"
|||---------------------------------------------------------------------------------------------------------Reject
Sub Event_PlayReject(Line, Player)
	/if (${Debug}) /echo in PlayReject(${Player})
	/varset Player ${Player.Right[-2].Left[-1]}
	/delay ${TellDelay}
	/tell ${Player} You can only play non-Lotto games via say. Please /say your play command instead.
/return

Sub PlayNoMoneyReject(Player)
	/if (${Debug}) /echo in PlayNoMoneyReject(${Player})
	/delay ${TellDelay}
	/tell ${Player} You cannot play games or buy lotto tickets until you have banked some money at the casino. Please trade the casino some plat in multiples of 100, you can check your [Balance] or [Cashout] at any time.
/return

Sub NoMoneyToBetReject(Player)
	/if (${Debug}) /echo in NoMoneyToBetReject(${Player})
	/delay ${TellDelay}
	/tell ${Player} You do not have enough money banked to make this bet. Your Current Balance: ${${Player}[1]}. Either bet an amount you can afford or trade the casino some plat in multiples of 100, you can check your [Balance] or [Cashout] at any time.
/return

Sub NoGameReject(Player)
	/if (${Debug}) /echo in NoGameReject(${Player})
	/say ${Player}, you are not currently playing a game, please [Play gamename] before placing bets.
/return

Sub BadBetReject(Player)
	/if (${Debug}) /echo in BadBetReject(${Player})
	/say ${Player}, you must bet in multiples of 100.
/return
|||---------------------------------------------------------------------------------------------------------Info
Sub Event_Hail(Line, Player)
	/if (${Debug}) /echo in Hail(${Player})
	/varset Player ${Player.Right[-2].Left[-1]}
	/delay ${TellDelay}
	/tell ${Player} Welcome to [Casino] Royale ${Player}! Use me like you would any NPC. Would you like [Info] on how to play at the casino? I can provide you with information about the daily [Lotto]. We have quite a few [Games] you can play and will be adding more soon. The min bet is 100pp and the max bet is 10k in multiples of 100 only. Good luck and have fun! - Do you have [Suggestion]s?
/return

Sub Event_Casino(Line, Player)
	/if (${Debug}) /echo in Casino(${Player})
	/varset Player ${Player.Right[-2].Left[-1]}
	/delay ${TellDelay}
	/tell ${Player} Casino Royale was created for one purpose alone, for the players enjoyment, NOT to make money. The odds are slightly tipped in the Casinos favor as with all Casinos. However, this is only to make sure the Casino continues to have enough plat to hand out to winners. 100% of Casino earnings stay on the casino and are used for payouts, NOT BUYING ITEMS.
/return

Sub Event_Info(Line, Player)
	/if (${Debug}) /echo in Info(${Player})
	/varset Player ${Player.Right[-2].Left[-1]}
	/delay ${TellDelay}
	/tell ${Player} Playing our Games is simple, First cash in by [Banking] some plat at the casino, then just say [Play gamename]. Place your bet by saying [Bet #####], then make your roll or follow further instructions given by the casino. If you win it will be announced and your winnings will be added to your banked plat! If you lose, better luck next time.
/return

Sub Event_Oddsinfo(Line, Player)
	/if (${Debug}) /echo in Oddsinfo(${Player})
	/varset Player ${Player.Right[-2].Left[-1]}
	/delay ${TellDelay}
	/tell ${Player} Simple:2:5, BlackJack:2:5, Roulette:1:2-1:38, Lucky7:1:10, Expo:3:18, Lotto:1:2000, Raid:1:?
/return

Sub Event_Banking(Line, Player)
	/if (${Debug}) /echo in Banking(${Player})
	/varset Player ${Player.Right[-2].Left[-1]}
	/delay ${TellDelay}
	/tell ${Player} To play any game you must bank some plat with the casino. To do this simply give the casino some plat in multiples of 100. The plat you give will be recorded and used to bet in games. You can check your [Balance] at any time. When your done playing simply [Cashout] and collect your winnings. If you choose you may leave money banked in the casino, but it will not be accessable if the casino is not online so do this at your own risk. It is recommended that you [Cashout] when your done playing.
/return

Sub Event_Raid(Line, Player)
	/if (${Debug}) /echo in Raid(${Player})
	/varset Player ${Player.Right[-2].Left[-1]}
	/delay ${TellDelay}
	/tell ${Player} Every time you bet at the casino and win OR lose OR buy a lotto ticket. You have a chance of winning a [Raid Pass]. Upon winning one of these you can request from the casino that one raid mob (up to Luclin currently, will change soon though) be killed for you and you get all of the loot off the mob. The killing of the mob will be scheduled at a later time.
/return

Sub Event_RaidPasses(Line, Player)
	/if (${Debug}) /echo in RaidPasses(${Player})
	/varset Player ${Player.Right[-2].Left[-1]}
	/if (${Player.Equal[Rampaige]})
		/delay ${TellDelay}
		/tell ${Player} You have 1 raid pass available.
	} else {
		/delay ${TellDelay}
		/tell ${Player} You currently have no raid passes. Win or lose money at the casino or buy lotto tickets for a chance to get a Raid Pass.
	}
/return 

Sub Event_Games(Line, Player)
	/if (${Debug}) /echo in Games(${Player})
	/varset Player ${Player.Right[-2].Left[-1]}
	/delay ${TellDelay}
	/tell ${Player} Pick your poison, we are currently running [Simple], [Blackjack], [Roulette], [Lucky7], and [Expo]. Many more games will be added over time so check back often! Check the [Odds].
/return